home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 June / PCWorld_2007-06_cd.bin / komercni software / sitronics / setup_with_dotnet.MSI / Binary.WiseDlgSequence < prev    next >
Text File  |  2006-11-17  |  3KB  |  67 lines
  1. ' Your license does not include any rights to disclose, sell, 
  2. ' sublicense, lease, distribute, or otherwise transfer this Release 
  3. ' Software, related documentation, or other proprietary information of Wise Solutions, Altiris 
  4. ' or any companies affiliated to Wise Solutions or Altiris.
  5. ' Licensee may not modify, alter, adapt, or publicly perform or display the 
  6. ' Release Software or any Pre-Release Software or related documentation in any manner.  Licensee may 
  7. ' not decompile, disassemble, reverse translate, or otherwise reverse engineer 
  8. ' any portion of the Release Software or any Pre-Release Software.
  9.  
  10. Function WisePrevDlg
  11.    UpdateProperties("Back")
  12. End Function
  13.    
  14. Function WiseNextDlg
  15.    UpdateProperties("Next")
  16. End Function
  17.  
  18. Sub UpdateProperties(Direction)
  19.    CurrDialog = Property("WiseCurrentDialog")
  20.    Wizard = Property("WiseCurrentWizard")
  21.    if (Property("WiseNextDialog") = "") Then
  22.        CurrDialog = Wizard
  23.    Else 
  24.        CurrDialog = Property("WiseNextDialog")
  25.    End If
  26.    Property("WiseCurrentDialog") = CurrDialog
  27.  
  28.    ' if going backwards, use stack...        
  29.    ' else find next conditioned dialog
  30.    IF (Direction = "Back") THEN
  31.       NextDialog = Property("WiseDialogStack")
  32.       pos = InStrRev(NextDialog,"|")
  33.       if (pos = 0) THEN
  34.          Property("WiseDialogStack") = ""
  35.       ELSE
  36.          Property("WiseDialogStack") = Left(NextDialog,pos - 1)
  37.          NextDialog = Mid(NextDialog,pos + 1)
  38.       END IF   
  39.       Property("WiseNextDialog") = NextDialog
  40.    ELSE
  41.       Dim vwOrder,rec
  42.       bFound = FALSE
  43.       ' where current wizard is correct
  44.       set vwOrder = Database.OpenView("Select * FROM WiseDlgSequence WHERE Wizard = '" & Wizard &"' ORDER BY Ordering")
  45.       vwOrder.Execute
  46.       Do
  47.           Set record = vwOrder.Fetch
  48.           IF record Is Nothing Then Exit Do
  49.           IF (bFound = TRUE) THEN
  50.             if (record.IntegerData(4) = 1) Then
  51.                 IF (EvaluateCondition(record.StringData(5)) = 1) Then
  52.                    NextDialog = record.StringData(1)
  53.                    exit do
  54.                 End IF
  55.              end if
  56.           ELSEIF (record.StringData(1) = CurrDialog) THEN
  57.               bFound = TRUE
  58.           END IF
  59.       Loop
  60.       Property("WiseNextDialog") = NextDialog
  61.       if (Property("WiseDialogStack") <> "") Then
  62.          Property("WiseDialogStack") = Property("WiseDialogStack") & "|" & CurrDialog
  63.       else
  64.          Property("WiseDialogStack") = Property("WiseDialogStack") & CurrDialog
  65.       End if
  66.    End if
  67. End Sub